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FORSWRITE SF 
Table of Contents 
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= entry point for FORTRAN WRITE sfouenrs 16-SEP-1984 00:05:50 VAX/VMS Macro v04-00 


Y. ons ; Detailed Current Edit History 
ITE_SF = WRITE Sequential formatted 
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FORSWRITE_SF - entry point for FORTRAN WRITE SEQUENT! 16-SEP-1984 00:05:50 yan X/VMS Macro V04-00 Pa 1 
1-011 Se 3 Ep} 9be 99 :83:0¢ EPORRTL. SREIFORWRITSF « MAR; 1 nis (1) 
- TITLE FORSURITE. SF = entry point for FORTRAN WRITE E SEQUENTIAL FORMATTED 
IDENT § /1-011/ File: FORWRITSF.MAR Edit: JAW10 


SREAAAAAAAAAAAA AAA AAAAAAAAAARAARAERAAAAAAAAARAEAAAAEAAAARERAEAEAAAEAAREAEEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND goraee 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH nts AND WITH THE 
INCLUSION OF THE ABOVE gibi NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eepPokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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This puts the correct mask in entry vector, that is FORS$$I0_BEG entry mask. 
Furthermore this module must only use RO and Ri 
since any other register might not be in the entry mask for FORS$$I0_BEG. 


0 

3 “FACILITY: FORTRAN Support Library - user callable 

3 ABSTRACT: 

0 This module contains the enter point for the FORTRAN 

0 WRITE SEQUENTIAL FORMATTED 1/0 statement. It is simpl 

0 a call to FORS$I0O_BEG with bits in RO which describe the 
: parameter List. FORSS$IO_BEG interprets the parameters. 
0 MAINTENANCE NOTE: 

The transfer vector (RTLVECTOR+ALLGBL) must have the following: 
0 . TRANSFER FORSWRITE_SF 

0 . MASK FORS$S$10_BEG 

0 BRW FORSWRITE_SF+2 

0 

0 

0 


ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


MODIFIED BY: 
T. Hastings, 29-July-78 
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oint for FORTRAN WRIT stouenti 16-SEP-1 5:50 yeneyee M 04 P 
¢ ; Detailed Current baie 198 99: : RESP ORURITS ses 3) 


History 6-SEP-1 2:06 YPORRIL. SRCIJFORWRITSF .MAR; 1 
-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 


Add conaent : out vec ors. TNH 23-June-78 
Pass arg i - Mot ROR, add comments. TNH ah i | oa 


1 = Update Sareten” number and copyright notice. JBS 16-NOV-78 
1- § - t ange statement type symbols to be LUBSK... JBS 07-DEC-78 
1-005 - change, pratesens c.sree e symbols to be ISBSK..._ JBS 11-DEC-78 
1-004 = Add tot fe dh e. JBS -7 
1-005 - ace FORSREAD. cre FORSREAD FOR SREWRITE SF, FORSREWRITE_SO, 


FORSREAD_IF, FORSREAD_I0, <poksuni TE _IF, FORSWRITE_10, 
FOR SREAD. KU FORSREURTTE, S 
SBL 2-May-1979 
1-006 - Remove, : lL entry points that need object time formatting, 
wes ting them in FORSENTRY_OBJ so ti at we can arrange to 
see “ e unos? compiler only when it is needed. 


1-007 - Remove entry Erssio 8 oe aes MF; we will code a new module 
for it and FOR $8 see how much 1/0 initiation time 
improves. JBS 0 Sty 
08 - Do lLikewuse for PORSKEAD’ DU and FORSWRITE_DU. JBS 03-JUL-1979 
09 = Remove all entry points except FORSWRITE tei : each of the 
others gets its own module so we can se TBpJUC 918 load 
the necessary UDF ang REC modules. = 09- 979 
010 - New parameters to FOR$$IO_ BEG. SBL 5-Dec-1979 
011 = Change BRW FORS$IO_BEG+2 o8 JMP oF ORSSi0 -BEG+2. JAW 21-Feb-1981 
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FORTRAN WRITE stouenti 16-SEP-1984 00:05:50 YAX/VMS Macro V04-0C p FC 
gr SEE =18 4 9:03:60 FORRTL.SRCJFORWRITSF MAR: 1 revs 3) 1 
.SBTTL DECLARATIONS 
INCLUDE FILES: 
Hf dys 3; Define inter-module FORTRAN symbols 


: EXTERNAL SYMBOLS: 


; Declare all external symbols 


-DSABL GBL 
-EXTRN FORSSIO_BEG ; common I/0 statement processing 


t 

The pg references are to make sure the necessary UDF and REC 

modules are loaded. These are the routines which are called through 

the dispatch tables in FORSSDISPAT. 
-EXTRN FORSSUDF_WFO, FORSSUDF_WF1, FORSSUDF_WF9 
~EXTRN FORSSREC_WSFO, FORSSREC_WSF1, FORSSREC_wWSF9 

MACROS: 
NONE 


PSECT DECLARATIONS: 


-PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT ,LONG 


: EQUATED SYMBOLS: 


OWN STORAGE: 
NONE 


BOEF 3; Define statement type symbols 
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formatte 6-SEP-19 FORRTL.SRCJFORWRITSF.MAR; 1 (4) 


-SBTTL FORSWRITE_SF = WRITE Sequential formatted 


+e 
FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN I/0 system to perform 
a write sequential formatted 1/0 statement. 


CALLING SEQUENCE: 


CALL FORSWRITE_SF (unit. rl.v, Sg > 5 | ee 
, err_adr.j.r C, end_adr.j.rjJ) 


; INPUT PARAMETERS: 


optional ERR= address 


err_adr.j.r 
optional END= address 


end_adr.j.r 
IMPLICIT INPUTS: 
NONE except those used by FORS$I0_BEG. 
OUTPUT PARAMETERS: 
NONE 


format ie i adr. of compiled format byte array 


IMPLICIT OUTPUTS: 


NONE except those left by FORS$I0_BEG. 
COMPLETION CODES: 
NONE 


; SIDE EFFECTS: 


NONE except those of FORS$$I0_BEG. 


ORSWRITE_SF:: .MASK  FORS$S$IO_BEG 
MOVZBL #ISBSK_ST_TY_ WSF, RO ; Statement type 
JMP G*FORS$10_BEG+2 ; branch past call mask 


~ END 


unit.rl.v Logical unit number 


FORSWRITE SF = entry point for FORTRAN WRITE stouent1 os eb 9: 93:30 ae Bacto vos 00 Page 5 


Symbol table 66-SEP-1984 2: FORWRITSF .MAR;1 (4) 
Fonssl0 BEG eereenee =X 
Sree SEO eenereee 8 6X 

: ORSER WSF tereeeee =X 
FORSEREC USED eeverere 
FORSSUDF _WFO eeeeeeee 8 =X 
FORSSUDF _WF 1 eeererer x 
Satie sannané act 
ISBSK_ST_TY_wSF = $$009001 

fp woes aa aeroe nas wen y 

! ;_Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 

ABS 00000000 ( 0.) 69 ( 0.) NOPIC USR CON ABS LCL a NOEXE NORD NOWRT NOVEC BYTE 
“ FORSCODE 0000000B ( 11.) 5 Dor PIC USR CON’ REL LCL EXE RD NOWRT NOVEC LONG 
teem oeneann Seeman mean anece > 
H Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 37 00:00:00.08 00:00:01.33 
Command processing 128 B88: 04 38 00:00: 103-18 
Pass 129 00:00: +s 00:00:05.1 
Syabol table sort a 38: tag 09: 28: 80-88 
Symbol table output 0; 5:00:03 0:00:00.11 
Psect synopsis output 00:00:00.01 00:00: 208-6) 
Cross-reference output B328: 3-99 00:00: 99 - 0 
Assembler run totals 34 0:00:02. 0:00:12.14 


The working set Limit was 1050 pages. 

6671 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space at lecatee o hold 187 non-local and 0 local symbols. 
176 source Lines were read in Pass 1, produci ‘? 8 object records in Pass 2. 

9 pages of virtual memory were used to define 2 macros. 


wre creme wen eee wesw eee een ce $ 


Macro Library name Macros defined 
“$52 2S0UAG8: CFORRTL OBJJFORRTL.MLB;1 
SSSDUA SYSLIBISTARLET. MLB; 
TofAcs (all Libraries) 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORWRITSF /OBJ=OBJ$:FORWRITSF MSRC$:FORWRI TSF /UPDATE=(ENHS:FORWRITSF)+L1 
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